00100	COMPILE;
00200	INSTRUMENT GLISS;
00300	OSCIL(P4,MAG/P2,P5);
00400	ZOSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
00500	ZOSCIL(U1,U2+MAG*P3,P6);
00600	OUTA←OUTA+U3;END;
00700	FINISH;
00800	ARRAY F5,F6,F3(512); <F1 is already present.
00900	SEG(F5);0,1  1,7  1 93   0,100;<Envelope
01100	SYNTH(F1);1 1  999;
01200	SEG(F3);0 1 1 100; < SLOPE ALL THE WAY
01300	
01400	RCDFLG←-1;
01500	PLAY;GLISS 0  2 2000 2000 F5 F1 4000 P2 F3;
01600	P7←9000; GLISS 3;FINISH;